Option Explicit
Sub A_Sample017()
    Dim myRng1 As Range
    Dim myRng2 As Range
    Set myRng1 = Cells(1, Columns.Count)
    With myRng1
        If Len(.PrefixCharacter & .Formula) > 0 Then
            Set myRng2 = myRng1		'̥k䪺xsŦX
        Else
            With .End(xlToLeft)
                If Len(.PrefixCharacter & .Formula) > 0 Then
                    Set myRng2 = .Cells(1)
                End If
            End With
        End If
    End With
    If myRng2 Is Nothing Then
        MsgBox "SJ"
    Else
        MsgBox myRng2.Address
    End If
    Set myRng1 = Nothing		'
    Set myRng2 = Nothing
End Sub
